home *** CD-ROM | disk | FTP | other *** search
/ The Glitch Apple Disk Collection / 2014.glitch.apple.collection.zip / indexed / AUDEX.DSK / PLAYBACK EXAMPLE PROGRAM.bas < prev    next >
BASIC Source File  |  2014-09-09  |  1KB  |  24 lines
  1. 5  HIMEM: 37375: REM AUDIO OPCODES NORMALLY LOADS AT 37376
  2. 10  REM  ***********************
  3. 20  REM  *                     *
  4. 30  REM  *  PLAYBACK ROUTINE   *
  5. 40  REM  *   EXAMPLE PROGRAM   *
  6. 50  REM  *                     *
  7. 60  REM  ***********************
  8. 70 D$ =  CHR$(4): REM  CNTRL 'D'
  9. 80  PRINT D$;"BLOAD AUDIO OPCODES"
  10. 90  PRINT : PRINT "PLAYBACK FROM MEMORY OR DISK (M OR D)?";
  11. 95  GET A$: IF A$ = "M"  THEN 110
  12. 96  IF A$ < >"D"  THEN 95
  13. 97  PRINT 
  14. 100  PRINT D$;"BLOAD DEMOFILE"
  15. 110  GOSUB 10006: END 
  16. 10001  GOTO 10009: REM    AUDSUBS BEGIN
  17. 10002  GOSUB 10008: POKE 254,PL: POKE 255,PH: POKE 253,NR: CALL 37889: RETURN : REM  CALL SQUALK
  18. 10003  GOSUB 10008: POKE 254,PL: POKE 255,PH: CALL 37478: RETURN : REM  CALL JABBER 
  19. 10004  GOSUB 10008: PRINT "TAPE WILL PLAY THROUGH SPEAKER.": PRINT "'T' KEY TRIGGERS DATA INPUT": PRINT "'A' KEY ABORTS WITHOUT DATA INPUT": POKE 255,145: POKE 253,117: CALL 37632: HOME : RETURN : REM  CALL HEARTAPE
  20. 10005  POKE 255,145: POKE 253,117: CALL 37675: RETURN : REM  CALL AUDIO IN
  21. 10006  POKE 255,145: POKE 253,117: CALL 37786: RETURN : REM  CALL PLAYBACK
  22. 10007  POKE 254,ML: POKE 255,MH: POKE 252,NL: POKE 253,NH: CALL 37376: RETURN : REM  CALL TONE
  23. 10008 PH =  INT(AD/256):PL = AD -256 *PH: RETURN : REM  CONVERT AD (ADDRESS) TO PH (POKEHI) AND PL (POKELO)
  24. 10009 : REM    AUDSUBS END